home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MSOXP OTL Options 6.xpl < prev    next >
Text File  |  2003-08-04  |  2KB  |  49 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Program Options\Microsoft Office\MS Office XP\Outlook"
  5. "NAME"="Secondary User Log-in"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Allow user to log in into different account (SP1)"
  9. "DESCRIPTION 1"="By default, Outlook allows users to log in to different Exchange Server accounts that are not the current user."
  10. "DESCRIPTION 2"="For example, a user corp\berny could simply add the mailbox of it\bill to his profile and if he has the password of the account, he could easily log in and read the message of that user."
  11. "DESCRIPTION 3"="With this setting disabled, Outlook will not show a secondary password dialog and thus Berny could not access the mailbox of Bill."
  12. "DESCRIPTION 4"="IMPORTANT! This feature requires that you install Service Pack 1 (SP1), else it will have no effect!"
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com/"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All rights reserved."
  16. "COMMENT 1"="More info: http://support.microsoft.com/default.aspx?scid=kb;en-us;310642"
  17.  
  18.  
  19.     sV1="HKCU\Software\Microsoft\Office\10.0\Outlook\RPC\DisablePWDialog" 'DW: 1
  20. sPCheck="HKCU\Software\Microsoft\Office\10.0\Outlook\"
  21. Sub Plugin_Initialize 
  22. if RegPathExists(sPCheck) then
  23.    i=RegReadValue(sV1)
  24.       if i<>1 then 
  25.          SetUIElement 1,true
  26.       end if
  27. else
  28.    Disable()
  29. end if
  30. END SUB
  31.  
  32.  
  33. 'Called when the Plugin should apply the changes
  34. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  35.  b=GetUIElement(1)
  36.  if b=true then
  37.     If RegValueExists(sV1) then Call RegDeleteValue(sV1)
  38.  else
  39.                                 Call RegWriteValue(sV1,1,2)
  40.  end if
  41.  
  42.  
  43.  
  44. END SUB
  45.  
  46. 'Called when the Plugin is about to be removed from memory
  47. SUB Plugin_Terminate
  48. END SUB
  49.